Option Explicit
Sub C_Sample012()
    Dim myRng(1 To 10) As Range
    Dim i              As Long
    For i = 1 To 10						']wxsd
        Set myRng(i) = Cells(i, 1)
    Next
    Cells.Clear							'xs檺M
    'ǳƨ즹
    myRng(1).NumberFormatLocal = "G/qή榡"  	'qή榡
    myRng(2).NumberFormatLocal = "0_ " 			'ƭ
    myRng(3).NumberFormatLocal = "\#,##0;\-#,##0"	'f
    myRng(4).NumberFormatLocal _
    = "_ \* #,##0_ ;_ \* -#,##0_ ;_ \* ""-""_ ;_ @_ "		'|pM
    myRng(5).NumberFormatLocal = "ge.m.d"  		'
    myRng(6).NumberFormatLocal = "h:mm"  		'ɶ
    myRng(7).NumberFormatLocal = "0%"  			'ʤ
    myRng(8).NumberFormatLocal = "# ?/?" 			'Ʀr
    myRng(9).NumberFormatLocal = "0.E+00"  		'ǰO
    myRng(10).NumberFormatLocal = "@"  			'r
    Erase myRng
End Sub

